home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.49 / mathematik / herder.p < prev    next >
Text File  |  1995-06-24  |  259b  |  20 lines
  1. program herder_verfahren;
  2.  
  3. var i,j,k,p,w: long;
  4.  
  5. begin
  6. k:=0;i:=0;j:=0;p:=0;
  7. write('X-Wert: ');
  8. readln(w);
  9. write('Höchste Potenz: ');
  10. readln(p);
  11.  for i:=p downto 0 do begin
  12.   write('x^',i,': ');
  13.   readln(j);
  14.   k:=(k+j)*w;
  15.  end;
  16. writeln('Ergebnis: ',k);
  17. end.
  18.  
  19.  
  20.